10 IFX>.THEN100
15 POKE55,119:POKE56,55:CLR
20 POKE53280,1:POKE53281,1
30 PRINTCHR$(142)"[147] GATHERING THE PIECES TO THE PUZZLE..."
100 IFX=0THENX=1:LOAD"TEXT.3.1.O",8,1
120 IFX=1THENX=2:LOAD"SPACE.LNK",8,1
130 IFX=2THENX=3:LOAD"UNPACKER",8,1
140 IFX=3THENX=4:LOAD"HAND.SPR",8,1
145 IFX=4THENX=5:LOAD"COPYMEM2.O",8,1
146 IFX=5THENX=6:LOAD"PUZZLE.FNT",8,1
150 :
160 NI=42 : REM NUMBER OF ITEMS 6*7
170 NA=6  : REM NUMBER ACROSS
180 ND=6  : REM NUMBER DOWN-1
182 V=53248:REM VIC
183 TE=49161:REM HI-RES TEXT PRINTER
184 CM=14200:REM COPY MEMORY
185 DIM A%(NI):MO=1
189 :
190 SE$(1)=" [215]INNER........[[211]EE [208]ICTURE] "
191 SE$(2)=" [201]NTERMEDIATE..[[208]LACE '[197]M]   "
192 SE$(3)=" [204]OSER.........[[211]LIDE '[197]M]   "
193 SE$(4)=" [209]UIT..........[[194]YE [194]YE]     "
194 SP$="                               "
220 POKE53281,14:POKE53280,14:PRINT"[147]":MO=1:SE$=""
235 POKEV+21,0:POKE53270,PEEK(53270)AND255-16
240 PRINT"           [204][207][193][196][211][212][193][210] [208]RESENTS:"
242 PRINT"             [208][201][216][197][204] [208][213][218][218][204][197][210]"
244 PRINT"    [194]Y [193]LAN [199]ARDNER AND [205]IKE [205]AYNARD"
246 PRINT"            -- [205][193][201][206] [205][197][206][213] --"
247 PRINT"   [195][210][211][210] KEYS SCROLL -- [210][197][212][213][210][206] SELECTS"
248 PRINTSE$;:FORA=1TO4:PRINTSE$(A)" "CHR$(13)SP$:NEXT
250 PRINTSE$""SE$(MO)"[146][187]"
252 PRINT"[188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]":POKE198,.
280 GETA$:GOSUB9000:IFA$=""THEN280
282 IFA$=CHR$(13)THEN330
284 IFA$=""ANDMO<4THENMM=1:GOTO290
286 IFA$="[145]"ANDMO>1THENMM=-1:GOTO290
288 GOTO280
290 PRINTSE$""SE$(MO)" "CHR$(13)SP$
292 IFMM=1THENSE$=SE$+""
294 IFMM=-1THENSE$=LEFT$(SE$,LEN(SE$)-2)
296 MO=MO+MM:GOTO250
330 IFMO=4THEN1020
340 IFMO=1THENFORX=1TONI:A%(X)=X:NEXT:CF=1:GOSUB7000:GOSUB6000:GOSUB7100:GOTO510
350 GOSUB 1680
355 SM=1:GOSUB 4000 : REM SHOW PICTURE
360 :
370 GOSUB5000
380 :
390 :
400 :
410 CF=0
420 POKE1016+52224,24:POKEV+39,5:POKEV,60:POKEV+1,68
430 POKEV+29,0:POKEV+23,0:POKEV+16,0
450 :
460 IFGIP=1THEN510
470 FORX=1TONI:A%(X)=X:NEXT
480 FORX=1TONI:R1=RND(1)*NI+1:R2=RND(1)*NI+1:T=A%(R1):A%(R1)=A%(R2)
490 A%(R2)=T:NEXT
495 RO=0:CO=1
500 :
510 GOSUB 3300 : REM PLOT THEM PUPPIES
600 :
610 FL=0
620 FORX=0TONI-1
630 IFA%(X+1)<>X+1THENFL=1
640 IFA%(X+1)=NITHENBL=X
650 NEXT
660 :
670 IFCF=1THEN1530
680 IFFL=0THENSYS49161,"               [217][207][213] [215][207][206]!!             ",1,0,0:GOTO1450
690 J=56320
700 POKEV+21,1:GOSUB 1080:POKEV+21,.:IFMATHENMA=.:GOTO510
710 A=CO+RO*NA
720 BR=INT(BL/NA):BC=BL-NA*BR:BC=BC+1
730 IFMO=2ANDA%(A)<>NITHEN1600 : REM PLOP IT
740 IF(BR<>ROANDBC<>CO)ORA%(A)=NITHEN970
750 IFBR<>ROTHEN870
760 IF BC>COTHENB=BC:E=CO+1:I=-1
770 IF BC<COTHENB=BC:E=CO-1:I=1
780 FORX=BTOESTEPI
790 T=RO*NA+X:F=RO*NA+X+I
800 A%(T)=A%(F)
810 POKE254,2+RO*3:POKE253,X*5:POKE255,A%(T)-1:SYS51462
820 POKE254,2+RO*3:POKE253,(X+I)*5:POKE255,NI-1:SYS51462
830 NEXT
840 AG=3.34:A%(RO*NA+X)=NI
850 GOTO 610
860 :
870 IFBC<>COTHEN960
880 IFBR>ROTHENB=BR:E=RO+1:I=-1
890 IFBR<ROTHENB=BR:E=RO-1:I=1
900 FORX=BTOESTEPI
910 T=X*NA+CO:F=(X+I)*NA+CO:A%(T)=A%(F)
920 POKE253,CO*5:POKE254,2+X*3:POKE255,A%(T)-1:SYS51462
930 POKE253,CO*5:POKE254,2+(X+I)*3:POKE255,NI-1:SYS51462
940 AG=3.34:NEXT
950 A%(X*NA+CO)=NI:GOTO610
960 :
970 SYS49161,"            [201][204][204][197][199][193][204] [205][207][214][197]            ",1,0,0:SYS49167,1000,33,15,15
980 FORDL=1TO500:NEXT:SYS49167,0,32,0,0
990 SYS49161,"            ",13,0,0
1000 GOTO 700
1010 :
1020 POKEV+21,0:POKEV+16,0:PRINT"[147]"
1030 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
1040 IFER<>63THENPOKE198,.:END
1050 LOAD"HELLO CONNECT",8
1060 END
1070 :
1080 REM READ KEYBOARD AND JOYSTICK
1090 IFPEEK(198)=0ANDPEEK(J)=127THENPOKEV+39,(PEEK(V+39)AND15)+1:GOTO1090
1100 GETA$:JS=PEEK(J):IFJS=111ORA$=CHR$(13)THENRETURN
1110 CF=0:IFA$="W"THENFORX=1TONI:A%(X)=X:NEXT:CF=1:MA=1:RETURN
1115 IFA$="H"THENPOKEV+21,.:GOSUB3000:POKEV+21,1:GOSUB5000:GOTO1090
1120 IFA$="M"THENGOSUB1320:GOTO1090
1130 IFA$="S"THENGOSUB1980:GOTO1090
1135 IFA$="V"THENPOKEV+21,.:GOSUB4000:GOSUB5000:POKEV+21,1:GOTO1090
1137 POKEV+39,(PEEK(V+39)AND15)+1
1140 IFA$=""ORJS=119THENCO=CO+1
1150 IFA$="[157]"ORJS=123THENCO=CO-1
1160 IFA$=""ORJS=125THENRO=RO+1
1170 IFA$="[145]"ORJS=126THENRO=RO-1
1180 IFJS=118THENCO=CO+1:RO=RO-1
1190 IFJS=117THENCO=CO+1:RO=RO+1
1200 IFJS=121THENCO=CO-1:RO=RO+1
1210 IFJS=122THENCO=CO-1:RO=RO-1
1220 :
1230 IFCO<1THENCO=1
1240 IFRO<0THENRO=0
1250 IFRO>NDTHENRO=ND
1260 IFCO>NATHENCO=NA
1270 :
1280 POKEV,21+CO*39:POKEV+1,68+RO*24:POKEV+16,0
1290 GOTO1090
1300 :
1310 :
1320 REM  QUIT
1330 SYS49161,"   [196][207] [217][207][213] [215][193][206][212] [212][207] [209][213][201][212] [212][200][201][211] [208][213][218][218][204][197]?   ",1,0,0
1340 FORX=1TO100:IFPEEK(198)=0THENNEXTX
1350 IFPEEK(198)<>0THEN1410
1360 SYS49161,"                                   ",4,0,0
1370 FORY=1TO100:IFPEEK(198)=0THENNEXTY
1380 IFPEEK(198)<>0THEN1410
1390 GOTO1330
1400 :
1410 GETA$
1420 IFA$<>"Y"THENSYS49161,"                                ",4,0,0:RETURN
1430 :
1440 SYS51459:GOTO220
1445 :
1450 POKEV+21,.
1460 POKE253,NA*5:POKE254,2+ND*3:POKE255,NI:SYS51462:AG=3.34
1470 FORX=1000TO20000STEP500:SYS49167,X,33,15,15:NEXT
1480 FORX=1000TO20000STEP500:SYS49167,X,33,15,15:NEXT
1490 FORX=1000TO20000STEP500:SYS49167,X,33,15,15:NEXT
1500 SYS49167,0,32,0,0
1510 FORDL=1TO100:NEXTDL
1520 :
1530 POKE253,NA*5:POKE254,2+ND*3:POKE255,NI:SYS51462:AG=3.34
1540 SYSTE,"[208][210][197][211][211] [193][206][217] [203][197][217]",14,24,.:POKE198,.
1550 A=PEEK(203):IFA=64THEN1550
1560 SYS51459:GOTO220
1590 :
1600 REM PLOP IT
1610 IFA%(A)=NITHEN870
1620 T=A%(A):A%(A)=A%(BL+1):A%(BL+1)=T
1630 POKE254,2+RO*3:POKE253,CO*5
1640 POKE255,NI-1:SYS51462:AG=3.34
1650 POKE254,2+BR*3:POKE253,BC*5
1660 POKE255,T-1:SYS51462:AG=3.34
1670 GOTO610
1680 REM  GAME IN PROGRESS
1690 GIP=0:POKEV+21,0
1700 PRINT"[147]         [215][207][213][204][196] [217][207][213] [204][201][203][197] [212][207] [204][207][193][196] [193]"
1710 PRINT"         [199][193][205][197] [201][206] [208][210][207][199][210][197][211][211]?"
1720 POKE198,0:WAIT198,1:GETA$:IFA$<>"Y"THEN1790
1730 :
1740 F$="PP.GIP"
1750 GIP=1
1760 OPEN2,8,2,F$
1770 FORX=1TONI:INPUT#2,A%(X):NEXT
1780 CLOSE2
1790 GOSUB7000:GOSUB7100:GOSUB6000
1795 SYSTE,"[208]LEASE WAIT -- [208]LOTTING [208]ICTURE.",4,11,.
1800 POKEV+21,.:RETURN
1970 :
1980 REM SAVE GIP
1990 REM
2000 SYS49161,"      [211][193][214][201][206][199] [199][193][205][197] [201][206] [208][210][207][199][210][197][211][211]...      ",1,1,0
2010 OPEN15,8,15,"I0":PRINT#15,"S0:PP.GIP":CLOSE15
2020 :
2030 F$="0:PP.GIP,S,W"
2040 OPEN2,8,2,F$
2050 FORX=1TONI
2060 PRINT#2,A%(X)
2070 NEXT
2080 CLOSE2
2090 SYS49161,"                                     ",1,1,0
2092 SYS49161,"[208][201][216][197][204] [208][213][218][218][204][197][210]",13,1,1
2100 RETURN
3000 POKE53280,14:POKE53281,14
3010 SYSCM,55296,25576,1000:SYS51459
3020 PRINT"[147]             [208][201][216][197][204] [208][213][218][218][204][197][210]"
3030 PRINT"    [212][207] [205][207][214][197] [212][200][197] [200][193][206][196], [213][211][197] [212][200][197] [195][213][210][211][207][210]"
3040 PRINT"  [203][197][217][211] [207][210] [212][200][197] [202][207][217][211][212][201][195][203] ([201][206] [208][207][210][212] 2)."
3050 PRINT"  [215][200][197][206] [212][200][197] [200][193][206][196] [201][211] [207][206] [212][200][197] [208][201][197][195][197]"
3060 PRINT"  [217][207][213] [215][201][211][200] [212][207] [205][207][214][197], [208][210][197][211][211] [210][197][212][213][210][206] [207][210]"
3062 PRINT"  [212][200][197] [198][201][210][197][194][213][212][212][207][206]."
3080 PRINT"  [212][207] [211][193][214][197] [193] [199][193][205][197], [208][210][197][211][211] '[211]'"
3090 PRINT"  [212][207] [199][197][212] [212][207] [212][200][197] [205][197][206][213], [208][210][197][211][211] '[205]'"
3092 PRINT"  [212][207] [214][201][197][215] [212][200][197] [197][206][212][201][210][197] [208][201][195][212][213][210][197], [208][210][197][211][211] '[214]'"
3094 PRINT"          [208][210][197][211][211] [193] [203][197][217] [212][207] [195][207][206][212][201][206][213][197]."
3095 :
3100 :
3110 POKE198,0:WAIT198,1:POKE198,0
3115 SYSCM,25576,55296,1000
3120 SYS51459:POKE53270,PEEK(53270)OR16
3130 POKE53280,2:POKE53281,1
3140 RETURN
3200 :
3300 REM  PLOT THE SHAPES
3310 XP=1:YP=-1:FL=0:POKE53270,PEEK(53270)OR16
3320 FORX=0TONI-1
3330 IFA%(X+1)<>X+1THENFL=1
3340 IFINT(X/NA)=X/NATHENYP=YP+3:XP=1
3350 POKE251,.:POKE252,64
3360 POKE253,XP*5:POKE254,YP:POKE255,A%(X+1)-1
3370 SYS51462:AG=3.34
3380 XP=XP+1
3390 NEXT
3395 RETURN
3397 :
4000 REM VIEW ENTIRE PICTURE
4002 IFVE=1THENVF=1:GOTO4020
4005 IFVE=0THENVE=1
4010 :
4012 SYS49173,33792,999,1
4014 SYS49173,40960,7999,0
4015 FORX=1TONI:POKE828+X,A%(X):A%(X)=X:NEXT:A%(NI)=NI+1
4016 POKE249,160:POKE250,128
4017 GOSUB 3300 : REM PLOT EM
4018 SYSCM,55296,24576,1000
4020 SYSCM,55296,25576,1000:SYSCM,24576,55296,1000
4023 POKE249,160:POKE250,128:SYS52098
4025 IFVF<>1THENFORX=1TONI:A%(X)=PEEK(828+X):NEXT
4030 FORDL=1TO700:IFPEEK(198)=0THENNEXT
4035 IFSM=1THENSM=.:GOSUB6000
4037 SYSCM,25576,55296,1000
4040 POKE828,1:POKE829,38:POKE830,1:POKE831,23
4050 POKE249,224:POKE250,204
4060 SYS52098:POKE198,.:POKE53270,PEEK(53270)OR16
4070 RETURN
4080 :
5000 SYS49173,55349,12,13:SYS49173,56227,17,13
5010 SYSTE,"[208][210][197][211][211] '[200]' [198][207][210] [200][197][204][208]",11,23,1
5020 SYSTE,"[208][201][216][197][204] [208][213][218][218][204][197][210]",13,1,1
5030 RETURN
6000 POKE828,0:POKE829,39:POKE830,0:POKE831,24:SYS49152:SYS49158,96:RETURN
7000 POKE249,224:POKE250,204:POKE53281,1:POKE53280,2
7010 SYS51459:POKE53270,PEEK(53270)OR16:RETURN
7100 POKE828,1:POKE829,38:POKE830,1:POKE831,23:SYS49152:SYS49158,1:RETURN
9000 IF(PEEK(56320)AND16)=.THENA$=CHR$(13):RETURN
9010 A=PEEK(56320)AND15
9020 IFA=14THENA$="[145]"
9030 IFA=7 THENA$=""
9040 IFA=13THENA$=""
9050 IFA=11THENA$="[157]"
9060 RETURN